home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dragan1r / frmtest.frm < prev    next >
Text File  |  1999-07-14  |  1KB  |  39 lines
  1. VERSION 5.00
  2. Object = "{AA36F3B6-38AA-11D3-80D9-444553540001}#2.0#0"; "STATBAR.OCX"
  3. Begin VB.Form frmTest 
  4.    Caption         =   "StatBar Control"
  5.    ClientHeight    =   1485
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6105
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   99
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   407
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin StatBar.StatusBar StatusBar1 
  15.       Height          =   765
  16.       Left            =   675
  17.       Top             =   375
  18.       Width           =   4815
  19.       _extentx        =   8493
  20.       _extenty        =   1349
  21.       value           =   5000
  22.    End
  23. End
  24. Attribute VB_Name = "frmTest"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = False
  27. Attribute VB_PredeclaredId = True
  28. Attribute VB_Exposed = False
  29. Option Explicit
  30. Const MAX = 10000
  31.  
  32. Private Sub Form_DblClick()
  33. Dim i As Long
  34.     StatusBar1.Maximum = MAX
  35.     For i = 0 To MAX
  36.         StatusBar1.Value = i
  37.     Next i
  38. End Sub
  39.